home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / KeplerLinks.Sym < prev    next >
Encoding:
Text File  |  1995-08-14  |  1.9 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ˜íÓ⁄öKeplerLinks¢˝“öLinkElemsæœ⁄óTexts |RunDescWH
  2. Elem¸{e pElemMsg˚{msg     Handlerhandle$ (lElemDesc
  3.  (file»key Ã|ElemDesc Ã|LinkDescLinkElemTargetÜõ¬∂KeplerGraphs |ObjectDesc
  4. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  5. ¸{selfıñ≥Filesreseof tRider˚{R Read
  6. ¸{self˚{R WritenofptsStar
  7. p Constellation next t!!!ConsDesc
  8.  ¸{self˚{R !Read
  9.  ¸{self!State
  10.  ¸{self˚{R !    Writen !x"""TargetDesc
  11. ¸{t˚{r "Read
  12. ¸{t˚{r "Write
  13.  Alloc
  14.  GraphicsToText
  15. ¸{e˚{m LinkHandler
  16.  TextToGraphics"ܵàflDisplay#Frame#dsc#nextX
  17. Y WH
  18. #¸{f x$$FrameMsg$˚{msg     %Handler%handle t&&FrameDescx0y0scale ext &$|'' 'PortDesc
  19. ¸{P˚{x'CX
  20. ¸{P˚{y'CY
  21. ¸{P˚{X'Cx
  22. ¸{P˚{Y'Cy
  23. ¸{P˚{x˙{y˘{r¯{col˜{mode 'DrawCircle
  24. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode 'DrawEllipse
  25. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode 'DrawLine
  26. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode 'DrawRect
  27. ¸{P˚{x˙{y (˘{sêØâflFonts)Font)˜{fontˆ{colı{mode '    DrawString
  28. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode '    
  29. FillCircle
  30. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode '
  31. FillQuad
  32. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode ' FillRect'xyrefcntsel next x***StarDesc
  33. ¸{self˚{P *Draw
  34. ¸{self˚{R *Read
  35. ¸{self˚{R *Write* !#&
  36.  +Name+name height"minX$maxX&minY(maxY,Font,,raster0 4|--FontDesc)- |..Bytes,.